home *** CD-ROM | disk | FTP | other *** search
/ L' Effet Pommier 3 / L'Effet Pommier - Volume 03.iso / HyperCard-SuperCard / XCMD Docs / CompileIt! Source Code / getCardPicts() < prev    next >
Text File  |  1995-09-11  |  358b  |  10 lines
  1. function getCardPicts
  2.   put "" into PICTList
  3.   repeat with x=1 to Count1Resources("PICT")
  4.     put get1Indresource("PICT",x) into ResHndl
  5.     GetResInfo ResHndl,ResType,ResID,ResName
  6.     if word 1 to 2 of ResName="card id" then put ResID && quote & resName & quote & "," after PICTlist
  7.     releaseResource ResHndl
  8.   end repeat
  9. return PICTList
  10. end getCardPICTs